object frmParchase: TfrmParchase
  Left = 0
  Top = 0
  Caption = 'Parchase'
  ClientHeight = 604
  ClientWidth = 894
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlMain: TPanel
    Left = 0
    Top = 33
    Width = 894
    Height = 571
    Align = alClient
    TabOrder = 0
    object pnlMainInfo: TPanel
      Left = 1
      Top = 1
      Width = 892
      Height = 32
      Align = alTop
      TabOrder = 0
      object lbl1: TLabel
        Left = 8
        Top = 9
        Width = 33
        Height = 13
        AutoSize = False
        Caption = 'PR NO'
      end
      object lbl2: TLabel
        Left = 168
        Top = 9
        Width = 57
        Height = 13
        AutoSize = False
        Caption = #37319#36141#26085#26399
      end
      object lbl5: TLabel
        Left = 328
        Top = 9
        Width = 41
        Height = 13
        AutoSize = False
        Caption = #24635#25968#37327
      end
      object edtGRNO: TEdit
        Left = 40
        Top = 5
        Width = 122
        Height = 21
        ReadOnly = True
        TabOrder = 0
      end
      object dtpParchaseDate: TDateTimePicker
        Left = 225
        Top = 5
        Width = 89
        Height = 21
        Date = 39790.000000000000000000
        Time = 39790.000000000000000000
        Enabled = False
        TabOrder = 1
      end
      object edtAllQty: TEdit
        Left = 372
        Top = 5
        Width = 97
        Height = 21
        ReadOnly = True
        TabOrder = 2
      end
    end
    object pnlDetailOperate: TPanel
      Left = 1
      Top = 33
      Width = 892
      Height = 31
      Align = alTop
      TabOrder = 1
      DesignSize = (
        892
        31)
      object lbl12: TLabel
        Left = 8
        Top = 11
        Width = 89
        Height = 13
        AutoSize = False
        Caption = #20132#26131#26126#32454
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblcode: TLabel
        Left = 103
        Top = 6
        Width = 27
        Height = 13
        Caption = 'code'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object btnDetailDelete: TButton
        Left = 725
        Top = 3
        Width = 75
        Height = 25
        Anchors = [akTop, akRight]
        Caption = #21024#38500#35760#24405
        TabOrder = 0
        OnClick = btnDetailDeleteClick
      end
      object btnsave: TButton
        Left = 806
        Top = 3
        Width = 75
        Height = 25
        Anchors = [akTop, akRight]
        Caption = #20445#23384
        TabOrder = 1
        OnClick = btnsaveClick
      end
      object edtCode: TRzEdit
        Left = 136
        Top = 4
        Width = 169
        Height = 21
        TabOrder = 2
        OnClick = edtCodeClick
        OnKeyPress = edtCodeKeyPress
      end
      object btnQtydown: TButton
        Left = 644
        Top = 3
        Width = 75
        Height = 25
        Anchors = [akTop, akRight]
        Caption = #25968#37327'-1'
        TabOrder = 3
        OnClick = btnQtydownClick
      end
      object btnAddGoods: TButton
        Left = 512
        Top = 3
        Width = 97
        Height = 25
        Anchors = [akTop, akRight]
        Caption = #28155#21152#36135#21697#20449#24687
        TabOrder = 4
        OnClick = btnAddGoodsClick
      end
    end
    object dbgdStoreGoods: TDBGridEh
      Left = 1
      Top = 64
      Width = 892
      Height = 506
      Align = alClient
      DataGrouping.GroupLevels = <>
      DataSource = dsParchaseDT
      Flat = False
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'Tahoma'
      FooterFont.Style = []
      FooterRowCount = 1
      IndicatorOptions = [gioShowRowIndicatorEh]
      ReadOnly = True
      SumList.Active = True
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'style'
          Footer.Alignment = taRightJustify
          Footer.Value = 'Record'
          Footer.ValueType = fvtStaticText
          Footers = <>
          Width = 137
        end
        item
          EditButtons = <>
          FieldName = 'barcode'
          Footer.Alignment = taRightJustify
          Footer.FieldName = 'barcode'
          Footer.ValueType = fvtCount
          Footers = <>
          Width = 83
        end
        item
          EditButtons = <>
          FieldName = 'code'
          Footers = <>
          Width = 195
        end
        item
          EditButtons = <>
          FieldName = 'Description'
          Footer.Alignment = taRightJustify
          Footer.Value = 'All Qty'
          Footer.ValueType = fvtStaticText
          Footers = <>
          Width = 291
        end
        item
          EditButtons = <>
          FieldName = 'qty'
          Footer.FieldName = 'qty'
          Footer.ValueType = fvtSum
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'size'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'brand'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'color'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'otherCode'
          Footers = <>
          Width = 195
        end
        item
          EditButtons = <>
          FieldName = 'name'
          Footers = <>
        end>
      object RowDetailData: TRowDetailPanelControlEh
      end
    end
  end
  object pnlTitle: TPanel
    Left = 0
    Top = 0
    Width = 894
    Height = 33
    Align = alTop
    Caption = #37319#36141
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
  end
  object myqryParchaseDt: TMyQuery
    Connection = DMMySQL.conMySQL
    SQL.Strings = (
      'select dt.id,dt.goodsID,dt.qty,'
      
        'sg.barcode,sg.code,sg.name,sg.brand,sg.size,sg.style,sg.color,sg' +
        '.otherCode,sg.Description '
      ' from purchasedt dt left join goodsinfo sg on dt.goodsID= sg.id'
      'where 1=0;')
    ReadOnly = True
    Left = 376
    Top = 240
  end
  object dsPrdParchaseDT: TDataSetProvider
    DataSet = myqryParchaseDt
    BeforeUpdateRecord = dsPrdParchaseDTBeforeUpdateRecord
    Left = 432
    Top = 240
  end
  object cdsParchaseDT: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsPrdParchaseDT'
    Left = 496
    Top = 240
    object cdsParchaseDTid: TLargeintField
      FieldName = 'id'
      Origin = 'dt.id'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsParchaseDTgoodsID: TLargeintField
      FieldName = 'goodsID'
      Origin = 'dt.goodsID'
    end
    object cdsParchaseDTqty: TIntegerField
      FieldName = 'qty'
      Origin = 'dt.qty'
    end
    object cdsParchaseDTbarcode: TWideStringField
      FieldName = 'barcode'
      Origin = 'sg.barcode'
    end
    object cdsParchaseDTcode: TWideStringField
      FieldName = 'code'
      Origin = 'sg.code'
      Size = 50
    end
    object cdsParchaseDTname: TWideStringField
      FieldName = 'name'
      Origin = 'sg.name'
      Size = 50
    end
    object cdsParchaseDTbrand: TWideStringField
      FieldName = 'brand'
      Origin = 'sg.brand'
    end
    object cdsParchaseDTsize: TWideStringField
      FieldName = 'size'
      Origin = 'sg.size'
      Size = 10
    end
    object cdsParchaseDTstyle: TWideStringField
      FieldName = 'style'
      Origin = 'sg.style'
    end
    object cdsParchaseDTcolor: TWideStringField
      FieldName = 'color'
      Size = 10
    end
    object cdsParchaseDTotherCode: TWideStringField
      FieldName = 'otherCode'
      Size = 100
    end
    object cdsParchaseDTDescription: TWideStringField
      FieldName = 'Description'
      Size = 255
    end
  end
  object dsParchaseDT: TDataSource
    DataSet = cdsParchaseDT
    Left = 560
    Top = 240
  end
  object myqryGoodsInfo: TMyQuery
    Connection = DMMySQL.conMySQL
    SQL.Strings = (
      'select * from storegoods where barcode=:barcode or `code`=:code;')
    Left = 632
    Top = 200
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'barcode'
      end
      item
        DataType = ftUnknown
        Name = 'code'
      end>
  end
end
